(smtpmail-via-smtp): Delete process buffer

unless s-debug-info is enabled.

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index f43c5f1785865b971490f8959c7f155138c2d3a6..3460a75a522436ad19b3357cce4905f2c74bc2b5 100644 (file)
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -749,7 +749,9 @@ This is relative to `smtpmail-queue-dir'.")
 ;                  (>= (car response-code) 400))
 ;              (throw 'done nil)
 ;            )
-           (delete-process process))))))
+           (delete-process process)
+           (unless smtpmail-debug-info
+             (kill-buffer process-buffer)))))))
 
 
 (defun smtpmail-process-filter (process output)